home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Schedule.wfm < prev    next >
Encoding:
Text File  |  1997-11-20  |  18.7 KB  |  853 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Schedule.wfm --  Schedule data view and edit form
  4. //
  5. //  This form displays data from the Schedule table and
  6. //  allows for the editing of existing records. 
  7. //
  8. //  Dependencies: SCHEDULE.DMD
  9. //                FLEET.CFM
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.8  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. SET TALK OFF
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/23/97
  23. //
  24. parameter bModal
  25. local f
  26. f = new scheduleForm()
  27. if (bModal)
  28.    f.mdi = false // ensure not MDI
  29.    f.readModal()
  30. else
  31.    f.open()
  32. endif
  33.  
  34. class scheduleForm of FLEETCFORM from "FLEET.CFM"
  35.    with (this)
  36.       open = class::FORM_OPEN
  37.       readModal = class::FORM_READMODAL
  38.       scaleFontSize = 8
  39.       height = 17
  40.       left = 10
  41.       top = 1
  42.       width = 65
  43.       text = "Schedule"
  44.       sizeable = false
  45.    endwith
  46.  
  47.  
  48.    this.MOD = new DATAMODREF()
  49.    this.MOD.parent = this
  50.    with (this.MOD)
  51.       filename = "SCHEDULE.DMD"
  52.       dataModClass = "ScheduleDataModule"
  53.       share = 0
  54.       active = true
  55.       left = -0.1429
  56.       top = -0.0455
  57.    endwith
  58.  
  59.  
  60.    this.TEXTBOXSCHEDULE = new TEXT(this)
  61.    with (this.TEXTBOXSCHEDULE)
  62.       height = 5
  63.       left = 1
  64.       top = 0.5
  65.       width = 48
  66.       metric = 0
  67.       colorNormal = "BLUE/BLUE"
  68.       alignHorizontal = 1
  69.       transparent = true
  70.       fontName = "MS Sans Serif"
  71.       fontSize = 8
  72.       fontItalic = true
  73.       text = "Schedule Information"
  74.       borderStyle = 2
  75.    endwith
  76.  
  77.  
  78.    this.LABELFLIGHTDATE = new TEXT(this)
  79.    with (this.LABELFLIGHTDATE)
  80.       height = 1
  81.       left = 2
  82.       top = 2
  83.       width = 8.5
  84.       metric = 0
  85.       colorNormal = "darkblue"
  86.       alignVertical = 1
  87.       transparent = true
  88.       fontName = "MS Sans Serif"
  89.       fontSize = 8
  90.       text = "Date:"
  91.    endwith
  92.  
  93.  
  94.    this.SPINFLIGHTDATE = new SPINBOX(this)
  95.    with (this.SPINFLIGHTDATE)
  96.       onChange = class::SPINFLIGHTDATE_ONCHANGE
  97.       height = 1
  98.       left = 11
  99.       top = 2
  100.       width = 14
  101.       metric = 0
  102.       dataLink = form.MOD.ref.schedule1.rowset.fields["Flight Date"]
  103.       colorHighLight = ""
  104.       rangeMax = {05/05/98}
  105.       rangeMin = {01/25/98}
  106.       fontName = "MS Sans Serif"
  107.       fontSize = 8
  108.       validRequired = true
  109.       borderStyle = 7
  110.    endwith
  111.  
  112.  
  113.    this.LABELBOOKED = new TEXT(this)
  114.    with (this.LABELBOOKED)
  115.       height = 1
  116.       left = 2
  117.       top = 4
  118.       width = 8.5
  119.       metric = 0
  120.       colorNormal = "darkblue"
  121.       alignVertical = 1
  122.       transparent = true
  123.       fontName = "MS Sans Serif"
  124.       fontSize = 8
  125.       text = "Booked:"
  126.    endwith
  127.  
  128.  
  129.    this.ENTRYBOOKED = new ENTRYFIELD(this)
  130.    with (this.ENTRYBOOKED)
  131.       enabled = false
  132.       height = 1
  133.       left = 11
  134.       top = 4
  135.       width = 6
  136.       metric = 0
  137.       dataLink = form.MOD.ref.schedule1.rowset.fields["Booked"]
  138.       picture = "99999"
  139.       colorHighLight = ""
  140.       fontName = "MS Sans Serif"
  141.       fontSize = 8
  142.       validRequired = true
  143.       borderStyle = 2
  144.    endwith
  145.  
  146.  
  147.    this.LABELFLIGHTID = new TEXT(this)
  148.    with (this.LABELFLIGHTID)
  149.       height = 1
  150.       left = 28
  151.       top = 2.25
  152.       width = 7
  153.       metric = 0
  154.       colorNormal = "DARKBLUE"
  155.       alignVertical = 1
  156.       transparent = true
  157.       fontName = "MS Sans Serif"
  158.       fontSize = 8
  159.       text = "Flight:"
  160.    endwith
  161.  
  162.  
  163.    this.ENTRYFLIGHTID = new ENTRYFIELD(this)
  164.    with (this.ENTRYFLIGHTID)
  165.       height = 1
  166.       left = 36
  167.       top = 2.25
  168.       width = 9.5
  169.       metric = 0
  170.       dataLink = form.MOD.ref.schedule1.rowset.fields["Flight ID"]
  171.       picture = "99999999"
  172.       colorHighLight = ""
  173.       fontName = "MS Sans Serif"
  174.       fontSize = 8
  175.       validRequired = true
  176.       borderStyle = 7
  177.    endwith
  178.  
  179.  
  180.    this.LABELAIRCRAFTID = new TEXT(this)
  181.    with (this.LABELAIRCRAFTID)
  182.       height = 1
  183.       left = 28
  184.       top = 3.75
  185.       width = 7
  186.       metric = 0
  187.       colorNormal = "DARKBLUE"
  188.       alignVertical = 1
  189.       transparent = true
  190.       fontName = "MS Sans Serif"
  191.       fontSize = 8
  192.       text = "Aircraft:"
  193.    endwith
  194.  
  195.  
  196.    this.ENTRYAIRCRAFTID = new ENTRYFIELD(this)
  197.    with (this.ENTRYAIRCRAFTID)
  198.       height = 1
  199.       left = 36
  200.       top = 3.75
  201.       width = 9.5
  202.       metric = 0
  203.       dataLink = form.MOD.ref.schedule1.rowset.fields["Aircraft ID"]
  204.       picture = "99999999"
  205.       colorHighLight = ""
  206.       fontName = "MS Sans Serif"
  207.       fontSize = 8
  208.       validRequired = true
  209.       borderStyle = 7
  210.    endwith
  211.  
  212.  
  213.    this.TEXTBOXFLIGHT = new TEXT(this)
  214.    with (this.TEXTBOXFLIGHT)
  215.       height = 6
  216.       left = 1
  217.       top = 6.1579
  218.       width = 48
  219.       metric = 0
  220.       colorNormal = "BLUE/BLUE"
  221.       alignHorizontal = 1
  222.       transparent = true
  223.       fontName = "MS Sans Serif"
  224.       fontSize = 8
  225.       fontItalic = true
  226.       text = "Flight Information"
  227.       borderStyle = 2
  228.    endwith
  229.  
  230.  
  231.    this.LABELFROM = new TEXT(this)
  232.    with (this.LABELFROM)
  233.       height = 1
  234.       left = 2
  235.       top = 7.5
  236.       width = 8
  237.       metric = 0
  238.       colorNormal = "darkblue"
  239.       alignVertical = 1
  240.       transparent = true
  241.       fontName = "MS Sans Serif"
  242.       fontSize = 8
  243.       text = "Departs:"
  244.    endwith
  245.  
  246.  
  247.    this.LABELTO = new TEXT(this)
  248.    with (this.LABELTO)
  249.       height = 1
  250.       left = 2
  251.       top = 8.5
  252.       width = 8
  253.       metric = 0
  254.       colorNormal = "darkblue"
  255.       alignVertical = 1
  256.       transparent = true
  257.       fontName = "MS Sans Serif"
  258.       fontSize = 8
  259.       text = "Arrives:"
  260.    endwith
  261.  
  262.  
  263.    this.CHECKMONDAY = new CHECKBOX(this)
  264.    with (this.CHECKMONDAY)
  265.       when = {; return false}
  266.       enabled = false
  267.       transparent = true
  268.       height = 1
  269.       left = 15
  270.       top = 10.8947
  271.       width = 2.5
  272.       text = " "
  273.       metric = 0
  274.       dataLink = form.MOD.ref.flight1.rowset.fields["Monday"]
  275.       tabStop = false
  276.       colorNormal = ""
  277.       fontName = "MS Sans Serif"
  278.       fontSize = 8
  279.       group = true
  280.    endwith
  281.  
  282.  
  283.    this.CHECKTUESDAY = new CHECKBOX(this)
  284.    with (this.CHECKTUESDAY)
  285.       enabled = false
  286.       transparent = true
  287.       height = 1
  288.       left = 20
  289.       top = 10.8947
  290.       width = 2.5
  291.       text = " "
  292.       metric = 0
  293.       dataLink = form.MOD.ref.flight1.rowset.fields["Tuesday"]
  294.       tabStop = false
  295.       colorNormal = ""
  296.       fontName = "MS Sans Serif"
  297.       fontSize = 8
  298.       group = true
  299.       borderStyle = 3
  300.    endwith
  301.  
  302.  
  303.    this.CHECKWEDNESDAY = new CHECKBOX(this)
  304.    with (this.CHECKWEDNESDAY)
  305.       enabled = false
  306.       transparent = true
  307.       height = 1
  308.       left = 25
  309.       top = 10.8947
  310.       width = 2.5
  311.       text = " "
  312.       metric = 0
  313.       dataLink = form.MOD.ref.flight1.rowset.fields["Wednesday"]
  314.       tabStop = false
  315.       colorNormal = ""
  316.       fontName = "MS Sans Serif"
  317.       fontSize = 8
  318.       group = true
  319.       borderStyle = 3
  320.    endwith
  321.  
  322.  
  323.    this.CHECKTHURSDAY = new CHECKBOX(this)
  324.    with (this.CHECKTHURSDAY)
  325.       enabled = false
  326.       transparent = true
  327.       height = 1
  328.       left = 30
  329.       top = 10.8947
  330.       width = 2.5
  331.       text = " "
  332.       metric = 0
  333.       dataLink = form.MOD.ref.flight1.rowset.fields["Thursday"]
  334.       tabStop = false
  335.       colorNormal = ""
  336.       fontName = "MS Sans Serif"
  337.       fontSize = 8
  338.       group = true
  339.    endwith
  340.  
  341.  
  342.    this.CHECKBOXFRIDAY1 = new CHECKBOX(this)
  343.    with (this.CHECKBOXFRIDAY1)
  344.       when = {; return false}
  345.       enabled = false
  346.       transparent = true
  347.       height = 1
  348.       left = 35
  349.       top = 10.8947
  350.       width = 2.5
  351.       text = " "
  352.       metric = 0
  353.       dataLink = form.MOD.ref.flight1.rowset.fields["Friday"]
  354.       tabStop = false
  355.       colorNormal = ""
  356.       fontName = "MS Sans Serif"
  357.       fontSize = 8
  358.       group = true
  359.    endwith
  360.  
  361.  
  362.    this.CHECKBOXSATURDAY1 = new CHECKBOX(this)
  363.    with (this.CHECKBOXSATURDAY1)
  364.       when = {; return false}
  365.       enabled = false
  366.       transparent = true
  367.       height = 1
  368.       left = 40
  369.       top = 10.8947
  370.       width = 2.5
  371.       text = " "
  372.       metric = 0
  373.       dataLink = form.MOD.ref.flight1.rowset.fields["Saturday"]
  374.       tabStop = false
  375.       colorNormal = ""
  376.       fontName = "MS Sans Serif"
  377.       fontSize = 8
  378.       group = true
  379.    endwith
  380.  
  381.  
  382.    this.CHECKSUNDAY = new CHECKBOX(this)
  383.    with (this.CHECKSUNDAY)
  384.       enabled = false
  385.       transparent = true
  386.       height = 1
  387.       left = 10
  388.       top = 10.8947
  389.       width = 2.5
  390.       text = " "
  391.       metric = 0
  392.       dataLink = form.MOD.ref.flight1.rowset.fields["Sunday"]
  393.       tabStop = false
  394.       colorNormal = ""
  395.       fontName = "MS Sans Serif"
  396.       fontSize = 8
  397.       group = true
  398.    endwith
  399.  
  400.  
  401.    this.TEXTBOXAIRCRAFT = new TEXT(this)
  402.    with (this.TEXTBOXAIRCRAFT)
  403.       height = 3.5
  404.       left = 1
  405.       top = 13
  406.       width = 48
  407.       border = true
  408.       metric = 0
  409.       colorNormal = "BLUE/BLUE"
  410.       alignHorizontal = 1
  411.       transparent = true
  412.       fontName = "MS Sans Serif"
  413.       fontSize = 8
  414.       fontItalic = true
  415.       text = "Aircraft Information"
  416.       borderStyle = 2
  417.    endwith
  418.  
  419.  
  420.    this.ENTRYFROM = new ENTRYFIELD(this)
  421.    with (this.ENTRYFROM)
  422.       enabled = false
  423.       height = 1
  424.       left = 10
  425.       top = 7.5
  426.       width = 27
  427.       metric = 0
  428.       dataLink = form.MOD.ref.flight1.rowset.fields["From ID"]
  429.       colorHighLight = ""
  430.       fontName = "MS Sans Serif"
  431.       fontSize = 8
  432.       validRequired = true
  433.       borderStyle = 2
  434.    endwith
  435.  
  436.  
  437.    this.ENTRYTO = new ENTRYFIELD(this)
  438.    with (this.ENTRYTO)
  439.       enabled = false
  440.       height = 1
  441.       left = 10
  442.       top = 8.5
  443.       width = 27
  444.       metric = 0
  445.       dataLink = form.MOD.ref.flight1.rowset.fields["To ID"]
  446.       colorHighLight = ""
  447.       fontName = "MS Sans Serif"
  448.       fontSize = 8
  449.       validRequired = true
  450.       borderStyle = 2
  451.    endwith
  452.  
  453.  
  454.    this.ENTRYMAKE = new ENTRYFIELD(this)
  455.    with (this.ENTRYMAKE)
  456.       enabled = false
  457.       height = 1
  458.       left = 9
  459.       top = 14
  460.       width = 17
  461.       metric = 0
  462.       dataLink = form.MOD.ref.aircraft1.rowset.fields["Make"]
  463.       colorHighLight = ""
  464.       fontName = "MS Sans Serif"
  465.       fontSize = 8
  466.       validRequired = true
  467.       borderStyle = 2
  468.    endwith
  469.  
  470.  
  471.    this.ENTRYMODEL = new ENTRYFIELD(this)
  472.    with (this.ENTRYMODEL)
  473.       enabled = false
  474.       height = 1
  475.       left = 9
  476.       top = 15
  477.       width = 17
  478.       metric = 0
  479.       dataLink = form.MOD.ref.aircraft1.rowset.fields["Model"]
  480.       colorHighLight = ""
  481.       fontName = "MS Sans Serif"
  482.       fontSize = 8
  483.       validRequired = true
  484.       borderStyle = 2
  485.    endwith
  486.  
  487.  
  488.    this.LABELMAKE = new TEXT(this)
  489.    with (this.LABELMAKE)
  490.       height = 1
  491.       left = 2
  492.       top = 14
  493.       width = 7
  494.       metric = 0
  495.       colorNormal = "darkblue"
  496.       alignVertical = 1
  497.       transparent = true
  498.       fontName = "MS Sans Serif"
  499.       fontSize = 8
  500.       text = "Make:"
  501.    endwith
  502.  
  503.  
  504.    this.LABELMODEL = new TEXT(this)
  505.    with (this.LABELMODEL)
  506.       height = 1
  507.       left = 2
  508.       top = 15
  509.       width = 7
  510.       metric = 0
  511.       colorNormal = "darkblue"
  512.       alignVertical = 1
  513.       transparent = true
  514.       fontName = "MS Sans Serif"
  515.       fontSize = 8
  516.       text = "Model:"
  517.    endwith
  518.  
  519.  
  520.    this.LABLESUN = new TEXT(this)
  521.    with (this.LABLESUN)
  522.       height = 1
  523.       left = 9
  524.       top = 9.9474
  525.       width = 4.6667
  526.       metric = 0
  527.       colorNormal = "DARKBLUE"
  528.       alignVertical = 1
  529.       alignHorizontal = 1
  530.       transparent = true
  531.       fontName = "MS Sans Serif"
  532.       fontSize = 8
  533.       fontUnderline = true
  534.       text = "Sun"
  535.    endwith
  536.  
  537.  
  538.    this.LABELMON = new TEXT(this)
  539.    with (this.LABELMON)
  540.       height = 1
  541.       left = 14
  542.       top = 9.9474
  543.       width = 4.6667
  544.       metric = 0
  545.       colorNormal = "DARKBLUE"
  546.       alignVertical = 1
  547.       alignHorizontal = 1
  548.       transparent = true
  549.       fontName = "MS Sans Serif"
  550.       fontSize = 8
  551.       fontUnderline = true
  552.       text = "Mon"
  553.    endwith
  554.  
  555.  
  556.    this.LABELTUE = new TEXT(this)
  557.    with (this.LABELTUE)
  558.       height = 1
  559.       left = 19
  560.       top = 9.9474
  561.       width = 4.6667
  562.       metric = 0
  563.       colorNormal = "DARKBLUE"
  564.       alignVertical = 1
  565.       alignHorizontal = 1
  566.       transparent = true
  567.       fontName = "MS Sans Serif"
  568.       fontSize = 8
  569.       fontUnderline = true
  570.       text = "Tue"
  571.    endwith
  572.  
  573.  
  574.    this.LABELWED = new TEXT(this)
  575.    with (this.LABELWED)
  576.       height = 1
  577.       left = 24
  578.       top = 9.9474
  579.       width = 4.6667
  580.       metric = 0
  581.       colorNormal = "DARKBLUE"
  582.       alignVertical = 1
  583.       alignHorizontal = 1
  584.       transparent = true
  585.       fontName = "MS Sans Serif"
  586.       fontSize = 8
  587.       fontUnderline = true
  588.       text = " Wed"
  589.    endwith
  590.  
  591.  
  592.    this.LABELTHU = new TEXT(this)
  593.    with (this.LABELTHU)
  594.       height = 1
  595.       left = 29
  596.       top = 9.9474
  597.       width = 4.6667
  598.       metric = 0
  599.       colorNormal = "DARKBLUE"
  600.       alignVertical = 1
  601.       alignHorizontal = 1
  602.       transparent = true
  603.       fontName = "MS Sans Serif"
  604.       fontSize = 8
  605.       fontUnderline = true
  606.       text = "Thu"
  607.    endwith
  608.  
  609.  
  610.    this.LABELFRI = new TEXT(this)
  611.    with (this.LABELFRI)
  612.       height = 1
  613.       left = 34
  614.       top = 9.9474
  615.       width = 4.6667
  616.       metric = 0
  617.       colorNormal = "DARKBLUE"
  618.       alignVertical = 1
  619.       alignHorizontal = 1
  620.       transparent = true
  621.       fontName = "MS Sans Serif"
  622.       fontSize = 8
  623.       fontUnderline = true
  624.       text = "Fri"
  625.    endwith
  626.  
  627.  
  628.    this.LABELSAT = new TEXT(this)
  629.    with (this.LABELSAT)
  630.       height = 1
  631.       left = 39
  632.       top = 9.9474
  633.       width = 4.6667
  634.       metric = 0
  635.       colorNormal = "DARKBLUE"
  636.       alignVertical = 1
  637.       alignHorizontal = 1
  638.       transparent = true
  639.       fontName = "MS Sans Serif"
  640.       fontSize = 8
  641.       fontUnderline = true
  642.       text = "Sat"
  643.    endwith
  644.  
  645.  
  646.    this.ENTRYDAY = new ENTRYFIELD(this)
  647.    with (this.ENTRYDAY)
  648.       enabled = false
  649.       height = 1
  650.       left = 11
  651.       top = 3
  652.       width = 14
  653.       metric = 0
  654.       colorHighLight = ""
  655.       fontName = "MS Sans Serif"
  656.       fontSize = 8
  657.       value = "Entryfield8"
  658.       validRequired = true
  659.       borderStyle = 2
  660.    endwith
  661.  
  662.  
  663.    this.LABELDAY = new TEXT(this)
  664.    with (this.LABELDAY)
  665.       height = 1
  666.       left = 2
  667.       top = 3
  668.       width = 8.5
  669.       metric = 0
  670.       colorNormal = "darkblue"
  671.       alignVertical = 1
  672.       transparent = true
  673.       fontName = "MS Sans Serif"
  674.       fontSize = 8
  675.       text = "Day:"
  676.    endwith
  677.  
  678.  
  679.    this.ENTRYDEPARTS = new ENTRYFIELD(this)
  680.    with (this.ENTRYDEPARTS)
  681.       enabled = false
  682.       height = 1
  683.       left = 37.5
  684.       top = 7.5
  685.       width = 10
  686.       metric = 0
  687.       dataLink = form.MOD.ref.flight1.rowset.fields["Departs"]
  688.       colorHighLight = ""
  689.       fontName = "MS Sans Serif"
  690.       fontSize = 8
  691.       validRequired = true
  692.       borderStyle = 2
  693.    endwith
  694.  
  695.  
  696.    this.ENTRYARRIVES = new ENTRYFIELD(this)
  697.    with (this.ENTRYARRIVES)
  698.       enabled = false
  699.       height = 1
  700.       left = 37.5
  701.       top = 8.5
  702.       width = 10
  703.       metric = 0
  704.       dataLink = form.MOD.ref.flight1.rowset.fields["Arrives"]
  705.       colorHighLight = ""
  706.       fontName = "MS Sans Serif"
  707.       fontSize = 8
  708.       validRequired = true
  709.       borderStyle = 2
  710.    endwith
  711.  
  712.  
  713.    this.ENTRYCREW = new ENTRYFIELD(this)
  714.    with (this.ENTRYCREW)
  715.       enabled = false
  716.       height = 1
  717.       left = 40
  718.       top = 14
  719.       width = 6
  720.       metric = 0
  721.       dataLink = form.MOD.ref.aircraft1.rowset.fields["Crew"]
  722.       picture = "99999"
  723.       colorHighLight = ""
  724.       fontName = "MS Sans Serif"
  725.       fontSize = 8
  726.       validRequired = true
  727.       borderStyle = 2
  728.    endwith
  729.  
  730.  
  731.    this.ENTRYMAXPASSENGERS = new ENTRYFIELD(this)
  732.    with (this.ENTRYMAXPASSENGERS)
  733.       enabled = false
  734.       height = 1
  735.       left = 40
  736.       top = 15
  737.       width = 6
  738.       metric = 0
  739.       dataLink = form.MOD.ref.aircraft1.rowset.fields["Passengers"]
  740.       picture = "99999"
  741.       colorHighLight = ""
  742.       fontName = "MS Sans Serif"
  743.       fontSize = 8
  744.       validRequired = true
  745.       borderStyle = 2
  746.    endwith
  747.  
  748.  
  749.    this.LABELCREW = new TEXT(this)
  750.    with (this.LABELCREW)
  751.       height = 1
  752.       left = 28
  753.       top = 14
  754.       width = 11
  755.       metric = 0
  756.       colorNormal = "DARKBLUE"
  757.       alignVertical = 1
  758.       transparent = true
  759.       fontName = "MS Sans Serif"
  760.       fontSize = 8
  761.       text = "Crew:"
  762.    endwith
  763.  
  764.  
  765.    this.LABELPASSENGER = new TEXT(this)
  766.    with (this.LABELPASSENGER)
  767.       height = 1
  768.       left = 28
  769.       top = 15
  770.       width = 11
  771.       metric = 0
  772.       colorNormal = "DARKBLUE"
  773.       alignVertical = 1
  774.       transparent = true
  775.       fontName = "MS Sans Serif"
  776.       fontSize = 8
  777.       text = "Passengers:"
  778.    endwith
  779.  
  780.  
  781.    this.BUTTONOK = new PUSHBUTTON(this)
  782.    with (this.BUTTONOK)
  783.       onClick = class::BUTTONOK_ONCLICK
  784.       height = 1.2
  785.       left = 51
  786.       top = 1
  787.       width = 12
  788.       text = "OK"
  789.       metric = 0
  790.       fontName = "MS Sans Serif"
  791.       fontSize = 8
  792.       group = true
  793.       colorNormal = "BtnText/BtnFace"
  794.       value = false
  795.    endwith
  796.  
  797.  
  798.    this.BUTTONCANCEL = new PUSHBUTTON(this)
  799.    with (this.BUTTONCANCEL)
  800.       onClick = class::BUTTONCANCEL_ONCLICK
  801.       height = 1.1818
  802.       left = 51
  803.       top = 3
  804.       width = 12
  805.       text = "Cancel"
  806.       metric = 0
  807.       fontName = "MS Sans Serif"
  808.       fontSize = 8
  809.       group = true
  810.       colorNormal = "BtnText/BtnFace"
  811.       value = false
  812.    endwith
  813.  
  814.  
  815.    this.rowset = this.MOD.ref.schedule1.rowset
  816.  
  817.    // {Linked Method} form.buttoncancel.onClick
  818.    function BUTTONCANCEL_onClick
  819.       this.form.rowset.abandon()
  820.    return ( this.form.close() )
  821.  
  822.    // {Linked Method} form.buttonok.onClick
  823.    function BUTTONOK_onClick
  824.       this.form.rowset.save()
  825.    return ( this.form.close() )
  826.  
  827.    // {Linked Method} form.open
  828.    function Form_open
  829.       class::formPrepare()
  830.    return ( SCHEDULEFORM::OPEN() )
  831.  
  832.    // {Linked Method} form.readModal
  833.    function Form_readModal
  834.       class::formPrepare()
  835.    return ( SCHEDULEFORM::READMODAL() )
  836.  
  837.    function formPrepare
  838.        local f
  839.        f = new Field()
  840.        with ( f )
  841.          fieldName := "WEEKDAY"
  842.          beforeGetValue := { || CDOW(this.parent["Flight Date"].value ) }
  843.        endwith
  844.        this.rowset.fields.add(f)
  845.        this.entryDay.dataLink := this.rowset.fields["WEEKDAY"]
  846.    return true
  847.  
  848.    // {Linked Method} form.spinflightdate.onChange
  849.    function SPINFLIGHTDATE_onChange
  850.        this.form.entryDay.value := CDOW(this.value)
  851.    return ( this.form.entryDay.value )
  852. endclass
  853.